home *** CD-ROM | disk | FTP | other *** search
- /BuildChar {
- Adobe_Illustrator_AI5_vars exch /_bitlobyte exch put
- Adobe_Illustrator_AI5_vars exch /_bitfont exch put
- _bitfont /FontScript get 1 eq
- _bithibyte 0 eq
- _bitlobyte 129 ge _bitlobyte 159 le and
- _bitlobyte 224 ge _bitlobyte 252 le and
- or and and
- {
- Adobe_Illustrator_AI5_vars /_bithibyte Adobe_Illustrator_AI5_vars /_bitlobyte get put
- 0 0 setcharwidth
- }
- {
- _bithibyte 256 mul _bitlobyte add
- 16 4 string cvrs dup length (K) dup length
- dup 4 -1 roll add string Adobe_Illustrator_AI5_vars exch /_bitkey exch put
- exch _bitkey copy pop _bitkey exch 3 -1 roll putinterval
- % This is for Windows support
- _lineorientation 1 eq _bithibyte 0 ne and {
- 0 _bitfont /FontAscent get neg translate
- } if
- _bitfont /CharMetrics get _bitkey cvn get 0 setcharwidth
- _bitfont /CharStrings get _bitkey cvn get exec
- _lineorientation 1 eq _bithibyte 0 ne and {
- 0 _bitfont /FontAscent get translate
- } if
- Adobe_Illustrator_AI5_vars /_bithibyte 0 put
- } ifelse
- } bind def
-
-